home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / asms.arc / SEND.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-04-11  |  286 b   |  24 lines
  1. data:    equ 0
  2. contr:    equ 1
  3.     org 0H
  4.     b start
  5.     org 0AH
  6. start:    larp 0
  7.     lark ar0,0
  8.     mar *+
  9.     sar ar0,contr
  10. wait:    bioz getit
  11.     b wait
  12. getit:    out contr,pa5
  13.     mar *+,0
  14.     sar ar0,contr
  15.     larp 1
  16.     lark ar1,10
  17. delay:    nop
  18.     banz delay
  19.     larp 0
  20.     in data,pa7
  21.     out data,pa4
  22.     b wait
  23.     end
  24.